#!/usr/bin/perl

my @options = ("a","b","c","c");

&printCOption(1,2,3,"title",\@options);

sub printCOption{
#	my $out = shift;
	my $qid = shift;
	my $oid = shift;
	my $qtype = shift;
	my $otitle = shift;
	my $ref = shift;
	my @options = @$ref;
#OPTIONID	OPTITLE	OPTYPE	OPTION1	OPTION2	OPTION3	OPTION4	OPTION5	OPTION6	OPTION7	OPTION8	OPTION9	ANSWER	ANSWER_DES	NCHOICES	IFSTOP	QID	IFEG	IFHASTITLE
#1	北区	1	きたく	きたぐ	きたくん	きたぐん								1	0	1	0	1
	my @array = ($oid,$otitle,$qtype,("")x11,1,0,1,0,1);
	print join("\t",@array);
	print "\n";
	@array[3..11]=@options;
	print join("\t",@array);
	print "\n";
}